home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / code_edt / caddie10 / cntrfrm2.tx_ / cntrfrm2.tx
Encoding:
Text File  |  1996-03-19  |  331 b   |  15 lines
  1. cntrfrm2
  2. center a sub form on a main form
  3.  
  4. Sub CenterOnForm1(Frm As Form, LftScl As Single, TopScl As Single)
  5.  
  6.     Dim MX As Integer
  7.     Dim MY As Integer
  8.  
  9.     MX = Form1.Left + (Form1.Width - Frm.Width) / (2 * LftScl)
  10.     MY = Form1.Top + (Form1.Height - Frm.Height) / (2 * TopScl)
  11.  
  12.     Frm.Move MX, MY
  13.     
  14. End Sub
  15.